home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00140_add2 icon.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  452 b   |  21 lines
  1. on mouseDown
  2.   puppetSound("click")
  3.   updateStage()
  4. end
  5.  
  6. on mouseUp
  7.   global gorderlist, currentname, currentquant, position
  8.   if not (position = 0) then
  9.     set tempname to getPropAt(gorderlist, position)
  10.     set bbstest to chars(tempname, 1, 3)
  11.     if bbstest = "BBS" then
  12.       nothing()
  13.     else
  14.       set currentquant to currentquant + 1
  15.       setaProp(gorderlist, currentname, currentquant)
  16.     end if
  17.     formatlist()
  18.     calcsub()
  19.   end if
  20. end
  21.